home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / health.exe / SUMMARY.FRM < prev    next >
Text File  |  1993-07-23  |  9KB  |  311 lines
  1. VERSION 2.00
  2. Begin Form summary 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   7305
  9.    Height          =   4575
  10.    Left            =   960
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4170
  14.    ScaleWidth      =   7305
  15.    Tag             =   "summary"
  16.    Top             =   1080
  17.    Width           =   7425
  18.    Begin AniPushButton AniButton2 
  19.       BackColor       =   &H00FFFFFF&
  20.       Height          =   480
  21.       Left            =   4035
  22.       PictDrawMode    =   1  'Autosize control
  23.       Picture         =   SUMMARY.FRX:0000
  24.       Speed           =   162
  25.       TabIndex        =   7
  26.       TextPosition    =   2  'Left
  27.       Top             =   3720
  28.       Width           =   480
  29.    End
  30.    Begin AniPushButton AniButton1 
  31.       BackColor       =   &H00FFFFFF&
  32.       Caption         =   "Back Page"
  33.       ForeColor       =   &H00000000&
  34.       Height          =   465
  35.       Index           =   1
  36.       Left            =   0
  37.       Picture         =   SUMMARY.FRX:05E2
  38.       Speed           =   162
  39.       TabIndex        =   6
  40.       TextPosition    =   1  'Right
  41.       Top             =   3675
  42.       Width           =   1515
  43.    End
  44.    Begin AniPushButton AniButton1 
  45.       BackColor       =   &H00FFFFFF&
  46.       Caption         =   "Next Page"
  47.       ForeColor       =   &H00000000&
  48.       Height          =   465
  49.       Index           =   0
  50.       Left            =   5760
  51.       Picture         =   SUMMARY.FRX:148E
  52.       Speed           =   162
  53.       TabIndex        =   5
  54.       TextPosition    =   2  'Left
  55.       Top             =   3600
  56.       Width           =   1440
  57.    End
  58.    Begin AniPushButton AniButton3 
  59.       BackColor       =   &H00FFFFFF&
  60.       Cycle           =   1  'By frame
  61.       Height          =   480
  62.       Index           =   0
  63.       Left            =   4800
  64.       PictDrawMode    =   1  'Autosize control
  65.       Picture         =   SUMMARY.FRX:233A
  66.       TabIndex        =   10
  67.       Top             =   3600
  68.       Width           =   480
  69.    End
  70.    Begin PictureBox Picture1 
  71.       AutoRedraw      =   -1  'True
  72.       Height          =   735
  73.       Left            =   360
  74.       ScaleHeight     =   705
  75.       ScaleWidth      =   345
  76.       TabIndex        =   9
  77.       Top             =   2160
  78.       Width           =   375
  79.    End
  80.    Begin VHedit HEdit2 
  81.       DelayRecog      =   -1  'True
  82.       FontBold        =   -1  'True
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   18
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   1575
  89.       InflateBottom   =   270
  90.       InflateLeft     =   270
  91.       InflateRight    =   270
  92.       InflateTop      =   270
  93.       Left            =   4080
  94.       TabIndex        =   8
  95.       Top             =   1800
  96.       Version         =   268435458
  97.       Width           =   2775
  98.    End
  99.    Begin VHedit HEdit1 
  100.       DelayRecog      =   -1  'True
  101.       FontBold        =   -1  'True
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   18
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   2055
  108.       InflateBottom   =   270
  109.       InflateLeft     =   270
  110.       InflateRight    =   270
  111.       InflateTop      =   270
  112.       Left            =   960
  113.       TabIndex        =   0
  114.       Top             =   1560
  115.       Version         =   268435458
  116.       Width           =   2775
  117.    End
  118.    Begin ListBox List2 
  119.       BackColor       =   &H00FF0000&
  120.       FontBold        =   -1  'True
  121.       FontItalic      =   0   'False
  122.       FontName        =   "MS Sans Serif"
  123.       FontSize        =   12
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       ForeColor       =   &H00FFFFFF&
  127.       Height          =   630
  128.       Left            =   3360
  129.       TabIndex        =   2
  130.       Top             =   600
  131.       Width           =   2655
  132.    End
  133.    Begin ListBox List1 
  134.       BackColor       =   &H00FF0000&
  135.       FontBold        =   -1  'True
  136.       FontItalic      =   0   'False
  137.       FontName        =   "MS Sans Serif"
  138.       FontSize        =   12
  139.       FontStrikethru  =   0   'False
  140.       FontUnderline   =   0   'False
  141.       ForeColor       =   &H00FFFFFF&
  142.       Height          =   930
  143.       Left            =   360
  144.       TabIndex        =   1
  145.       Top             =   600
  146.       Width           =   2415
  147.    End
  148.    Begin Label Label2 
  149.       Alignment       =   2  'Center
  150.       BackColor       =   &H00FFFFFF&
  151.       Caption         =   "COMMENTS"
  152.       FontBold        =   -1  'True
  153.       FontItalic      =   0   'False
  154.       FontName        =   "MS Sans Serif"
  155.       FontSize        =   18
  156.       FontStrikethru  =   0   'False
  157.       FontUnderline   =   0   'False
  158.       Height          =   495
  159.       Left            =   3360
  160.       TabIndex        =   4
  161.       Top             =   0
  162.       Width           =   3015
  163.    End
  164.    Begin Label Label1 
  165.       Alignment       =   2  'Center
  166.       BackColor       =   &H00FFFFFF&
  167.       Caption         =   "DIAGNOSIS"
  168.       FontBold        =   -1  'True
  169.       FontItalic      =   0   'False
  170.       FontName        =   "MS Sans Serif"
  171.       FontSize        =   18
  172.       FontStrikethru  =   0   'False
  173.       FontUnderline   =   0   'False
  174.       ForeColor       =   &H00000000&
  175.       Height          =   495
  176.       Left            =   120
  177.       TabIndex        =   3
  178.       Top             =   0
  179.       Width           =   2535
  180.    End
  181. End
  182.  
  183. Sub AniButton1_Click (Index As Integer)
  184. If smartform(7) Then
  185.  
  186.         Select Case Index
  187.         Case 1
  188.         MDIMForm.Show
  189.         summary.Hide
  190.         Case 0
  191.         admit.Picture1.Cls
  192.         admit.Picture1.AutoRedraw = -1
  193.         admit.Picture1.Scale (0, 0)-(3, 4)
  194.         admit.Picture1.CurrentX = .8
  195.         admit.Picture1.CurrentY = 1.2
  196.         admit.Picture1.Print "CLICK"
  197.         admit.Picture1.CurrentX = 1
  198.         admit.Picture1.CurrentY = 2
  199.         admit.Picture1.Print " TO"
  200.         admit.Picture1.CurrentX = .6
  201.         admit.Picture1.CurrentY = 2.8
  202.         admit.Picture1.Print "RETURN"
  203.         admit.Show
  204.         summary.Hide
  205.         End Select
  206. Else
  207. formcheck "Summary"
  208. End If
  209.  
  210. End Sub
  211.  
  212. Sub AniButton2_Click ()
  213. If smartform(7) Then
  214.  
  215. menumode summary
  216. Else
  217. formcheck "Summary"
  218. End If
  219.  
  220. End Sub
  221.  
  222. Sub AniButton3_Click (Index As Integer)
  223. Select Case anibutton3(0).Value
  224. Case 2
  225.     screen.MousePointer = 11
  226.     Picture1.AutoRedraw = -1
  227.     bounce summary, summary.Picture1
  228.     Picture1.Picture = Picture1.Image
  229.     Picture1.Visible = -1
  230.     
  231.     Picture1.AutoRedraw = 0
  232.     screen.MousePointer = 0
  233. hedit1.Visible = 0
  234. hedit2.Visible = 0
  235. Case 1
  236.  
  237. hedit1.Visible = -1
  238. hedit2.Visible = -1
  239. Picture1.Visible = 0
  240. hedit1.SetFocus
  241. hedit1.SelStart = 0
  242. hedit2.SelStart = 0
  243. 'hedit1.sellength = Len(hedit1.text)
  244. 'hedit2.sellength = Len(hedit2.text)
  245. hedit1.Refresh
  246. hedit2.Refresh
  247.  
  248. End Select
  249. End Sub
  250.  
  251. Sub Form_Load ()
  252. summary.Move 0, 0, screen.Width, screen.Height
  253.  
  254. anibutton1(1).Move .1 * anibutton1(1).Width, summary.ScaleHeight - 1.1 * anibutton1(1).Height
  255. anibutton2.Move (summary.ScaleWidth - anibutton2.Width) / 2, summary.ScaleHeight - 1.1 * anibutton2.Height
  256. anibutton3(0).Move (summary.ScaleWidth - anibutton2.Width) / 2 + 1.3 * anibutton3(0).Width, summary.ScaleHeight - 1.1 * anibutton2.Height
  257. anibutton1(0).Move summary.ScaleWidth - 1.1 * anibutton1(0).Width, summary.ScaleHeight - 1.1 * anibutton1(0).Height
  258.  
  259. label1.Move 0, 0, summary.ScaleWidth \ 2, summary.ScaleHeight \ 15
  260. list1.Move 0, label1.Height, summary.ScaleWidth \ 2, summary.ScaleHeight * 2 / 5
  261. hedit1.Move 0, label1.Height + list1.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2.3 / 5
  262.  
  263.  
  264. label2.Move summary.ScaleWidth \ 2, 0, summary.ScaleWidth \ 2, summary.ScaleHeight \ 15
  265. list2.Move summary.ScaleWidth \ 2, label2.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2 / 5
  266. hedit2.Move summary.ScaleWidth \ 2, label2.Height + list2.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2.3 / 5
  267. ' set up area for bitblt
  268.  
  269. Picture1.Move 0, label1.Height + list1.Height, summary.ScaleWidth * 1, summary.ScaleHeight * 2.3 / 5
  270. '**********************************************
  271. If restored Then
  272. hedit1.Visible = 0
  273. hedit2.Visible = 0
  274. Picture1.Visible = -1
  275. anibutton3(0).Value = 2
  276. End If
  277. list1.AddItem "Recommendations:"
  278. list1.AddItem ""
  279. list1.AddItem "Critical Care"
  280. list1.AddItem "Intensive Care"
  281. list1.AddItem "Observation"
  282. list1.AddItem "Involuntary Commitment"
  283. list1.AddItem "Shared Room"
  284. list1.AddItem "Sexual Therapy"
  285. list1.AddItem "Voluntary Commitment"
  286. list1.AddItem "Therapeutic Touch"
  287. list1.AddItem "Out-Patient Nursing"
  288. list1.AddItem "Therapeutic Touch"
  289. list1.AddItem "Cleared For Discharge"
  290. list1.AddItem "Hold For The Authorities"
  291. list1.AddItem "Medical Miracle"
  292. list1.AddItem "Private Room"
  293. list1.AddItem "Physical Therapy"
  294. list1.AddItem "Occupational Therapy"
  295. list1.AddItem "Extended Stay"
  296.  
  297. End Sub
  298.  
  299. Sub HEdit1_GotFocus ()
  300. 'hedit1.Refresh
  301. End Sub
  302.  
  303. Sub List1_Click ()
  304. list2.AddItem list1.List(list1.ListIndex)
  305. End Sub
  306.  
  307. Sub List2_Click ()
  308. list2.RemoveItem list2.ListIndex
  309. End Sub
  310.  
  311.